home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / go / prog / golatex.taz / golatex / mf / go2black.mf < prev    next >
Encoding:
Text File  |  1991-11-27  |  41.5 KB  |  1,447 lines
  1. mode_setup;
  2.  
  3. define_pixels(size);
  4. define_pixels(line_thickness,border_line_thickness);
  5. define_pixels(dig_h,dig_w,dig_pen);
  6.  
  7. picture digit[];
  8. picture black_circle;
  9.  
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11.  
  12. def digit_zero =
  13.   currentpicture := nullpicture;
  14.   pickup pencircle scaled dig_pen;
  15.   lft x1=0; y1=.5dig_h;
  16.   x2=.5dig_w; top y2=dig_h;
  17.   rt x3=dig_w; y3=.5dig_h;
  18.   x4=.5dig_w; bot y4=0;
  19.   draw z1...z2...z3...z4...cycle;
  20.   digit[0] := currentpicture;
  21.   clearxy; clearit; clearpen;
  22. enddef;
  23.  
  24. def digit_one =
  25.   currentpicture := nullpicture;
  26.   pickup pencircle scaled dig_pen;
  27.   x1=.5dig_w; bot y1=0;
  28.   x2=.5dig_w; top y2=dig_h;
  29.   draw z1--z2;
  30.   digit[1] := currentpicture;
  31.   clearxy; clearit; clearpen;
  32. enddef;
  33.  
  34. def digit_two =
  35.   currentpicture := nullpicture;
  36.   pickup pencircle scaled dig_pen;
  37.   lft x1=0; y1=.75dig_h;
  38.   x2=.5dig_w; top y2=dig_h;
  39.   rt x3=.8dig_w; y3=.9dig_h;
  40.   lft x4=0; bot y4=0;
  41.   draw z1{up}...z2...z3..{(-.8dig_w,-dig_h)}z4;
  42.   z5=z4;
  43.   rt x6=dig_w; bot y6=0;
  44.   draw z5--z6;
  45.   digit[2] := currentpicture;
  46.   clearxy; clearit; clearpen;
  47. enddef;
  48.  
  49. def digit_three =
  50.   currentpicture := nullpicture;
  51.   pickup pencircle scaled dig_pen;
  52.   lft x1=.08dig_w; y1=.8dig_h;
  53.   x2=.5dig_w; top y2=dig_h; 
  54.   rt x3=.92dig_w; y3=y1;
  55.   z4=(.5dig_w,.52dig_h);
  56.   rt x5=dig_w; y5=.2dig_h;
  57.   x6=.65dig_w; bot y6=0;
  58.   lft x7=0; y7=y5;
  59.   draw z1{up}..z2..z3..{left}z4{right}..z5..z6...{up}z7;
  60.   digit[3] := currentpicture;
  61.   clearxy; clearit; clearpen;
  62. enddef;
  63.  
  64. def digit_four =
  65.   currentpicture := nullpicture;
  66.   pickup pencircle scaled dig_pen;
  67.   x1=.75dig_w; bot y1=0;
  68.   x2=x1; top y2=dig_h;
  69.   lft x3=0; y3=.3dig_h;
  70.   rt x4=dig_w; y4=y3;
  71.   draw z1--z2--z3--z4;
  72.   digit[4] := currentpicture;
  73.   clearxy; clearit; clearpen;
  74. enddef;
  75.  
  76. def digit_five =
  77.   currentpicture := nullpicture;
  78.   pickup pencircle scaled dig_pen;
  79.   rt x1=.95dig_w; top y1=dig_h;
  80.   lft x2=.05dig_w; y2=y1;
  81.   lft x3=0; y3=.45dig_h;
  82.   z4=(.5dig_w,.6dig_h);
  83.   rt x5=dig_w; y5=.3dig_h;
  84.   x6=.65dig_w; bot y6=0;
  85.   lft x7=0; y7=.15dig_h;
  86.   draw z1--z2--z3{up}..z4..z5..z6...{up}z7;
  87.   digit[5] := currentpicture;
  88.   clearxy; clearit; clearpen;
  89. enddef;
  90.  
  91. def digit_six =
  92.   currentpicture := nullpicture;
  93.   pickup pencircle scaled dig_pen;
  94.   rt x1=dig_w; y1=.8dig_h;
  95.   x2=.45dig_w; top y2=dig_h;
  96.   lft x3=0; y3=.5dig_h;
  97.   x4=.5dig_w; bot y4=0;
  98.   rt x5=dig_w; y5=.3dig_h;
  99.   z6=(.53dig_w,.55dig_h);
  100.   z7=(.03dig_w+.6dig_pen,.25dig_h);
  101.   draw z1{up}...z2...z3...z4...z5...{left}z6{left}...{(1,-10)}z7;
  102.   digit[6] := currentpicture;
  103.   clearxy; clearit; clearpen;
  104. enddef;
  105.  
  106. def digit_seven =
  107.   currentpicture := nullpicture;
  108.   pickup pencircle scaled dig_pen;
  109.   lft x1=0; top y1=dig_h;
  110.   rt x2=dig_w; y2=y1;
  111.   lft x3=.2dig_w; bot y3=0;
  112.   draw z1--z2--z3;
  113.   digit[7] := currentpicture;
  114.   clearxy; clearit; clearpen;
  115. enddef;
  116.  
  117. def digit_eight =
  118.   currentpicture := nullpicture;
  119.   pickup pencircle scaled dig_pen;
  120.   lft x1=.08dig_w; y1=.75dig_h;
  121.   x2=.5dig_w; top y2=dig_h;
  122.   rt x3=.92dig_w; y3=y1;
  123.   z4=(.5dig_w,.55dig_h);
  124.   rt x5=dig_w; y5=.25dig_h;
  125.   x6=.5dig_w; bot y6=0;
  126.   lft x7=0; y7=y5;
  127.   draw z1...z2...z3...z4...cycle; 
  128.   draw z4...z5...z6...z7...cycle;
  129.   digit[8] := currentpicture;
  130.   clearxy; clearit; clearpen;
  131. enddef;
  132.  
  133. def digit_nine =
  134.   currentpicture := nullpicture;
  135.   currentpicture := digit[6] rotated 180;
  136.   digit[9] := currentpicture shifted (dig_w,dig_h);
  137.   clearxy; clearit; clearpen;
  138. enddef;
  139.  
  140. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  141.  
  142. dig_w := .7dig_w;
  143. %%%dig_pen := .7dig_pen;
  144.  
  145. dig_w := .6dig_w;
  146. dig_pen := .7dig_pen;
  147.  
  148. digit_zero; digit_one; digit_two; digit_three; digit_four;
  149. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  150.  
  151. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  152.  
  153. beginchar(0,24/22size#,23/22size#,1/22size#); "pion czarny z 128";
  154.   pickup pencircle scaled line_thickness;
  155.   lft x1=1/24w; y1=11/24w;
  156.   rt x2=23/24w; y2=11/24w;
  157.   filldraw z1..z2..cycle;
  158.   black_circle := currentpicture;
  159.   currentpicture := black_circle 
  160.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  161.        - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  162.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  163. showit;
  164. endchar;
  165.  
  166. % stop"";
  167.  
  168. beginchar(1,24/22size#,23/22size#,1/22size#); "pion czarny z 129";
  169.   currentpicture := black_circle 
  170.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  171.        - digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  172.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  173. showit;
  174. endchar;
  175.  
  176. % stop"";
  177.  
  178. beginchar(2,24/22size#,23/22size#,1/22size#); "pion czarny z 130";
  179.   currentpicture := black_circle 
  180.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  181.        - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  182.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  183. showit;
  184. endchar;
  185.  
  186. % stop"";
  187.  
  188. beginchar(3,24/22size#,23/22size#,1/22size#); "pion czarny z 131";
  189.   currentpicture := black_circle 
  190.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  191.        - digit[3] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  192.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  193. showit;
  194. endchar;
  195.  
  196. % stop"";
  197.  
  198. beginchar(4,24/22size#,23/22size#,1/22size#); "pion czarny z 132";
  199.   currentpicture := black_circle 
  200.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  201.        - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  202.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  203. showit;
  204. endchar;
  205.  
  206. % stop"";
  207.  
  208. beginchar(5,24/22size#,23/22size#,1/22size#); "pion czarny z 133";
  209.   currentpicture := black_circle 
  210.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  211.        - digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  212.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  213. showit;
  214. endchar;
  215.  
  216. % stop"";
  217.  
  218. beginchar(6,24/22size#,23/22size#,1/22size#); "pion czarny z 134";
  219.   currentpicture := black_circle 
  220.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  221.        - digit[3] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  222.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  223. showit;
  224. endchar;
  225.  
  226. % stop"";
  227.  
  228. beginchar(7,24/22size#,23/22size#,1/22size#); "pion czarny z 135";
  229.   currentpicture := black_circle 
  230.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  231.        - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  232.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  233. showit;
  234. endchar;
  235.  
  236. % stop"";
  237.  
  238. beginchar(8,24/22size#,23/22size#,1/22size#); "pion czarny z 136";
  239.   currentpicture := black_circle 
  240.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  241.        - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  242.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  243. showit;
  244. endchar;
  245.  
  246. % stop"";
  247.  
  248. beginchar(9,24/22size#,23/22size#,1/22size#); "pion czarny z 137";
  249.   currentpicture := black_circle 
  250.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  251.        - digit[3] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  252.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  253. showit;
  254. endchar;
  255.  
  256. % stop"";
  257.  
  258. beginchar(10,24/22size#,23/22size#,1/22size#); "pion czarny z 138";
  259.   currentpicture := black_circle 
  260.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  261.        - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  262.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  263. showit;
  264. endchar;
  265.  
  266. % stop"";
  267.  
  268. beginchar(11,24/22size#,23/22size#,1/22size#); "pion czarny z 139";
  269.   currentpicture := black_circle 
  270.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  271.        - digit[3] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  272.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  273. showit;
  274. endchar;
  275.  
  276. % stop"";
  277.  
  278. beginchar(12,24/22size#,23/22size#,1/22size#); "pion czarny z 140";
  279.   currentpicture := black_circle 
  280.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)  
  281.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  282.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  283. showit;
  284. endchar;
  285.  
  286. % stop"";
  287.  
  288. beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 141";
  289.   currentpicture := black_circle 
  290.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  291.        - digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h)
  292.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  293. showit;
  294. endchar;
  295.  
  296. % stop"";
  297.  
  298. beginchar(14,24/22size#,23/22size#,1/22size#); "pion czarny z 142";
  299.   currentpicture := black_circle 
  300.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)  
  301.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  302.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  303. showit;
  304. endchar;
  305.  
  306. % stop"";
  307.  
  308. beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 143";
  309.   currentpicture := black_circle 
  310.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  311.        - digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h)
  312.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  313. showit;
  314. endchar;
  315.  
  316. % stop"";
  317.  
  318. beginchar(16,24/22size#,23/22size#,1/22size#); "pion czarny z 144";
  319.   currentpicture := black_circle 
  320.        - digit[1] shifted (.5w-1.65dig_w,11/24w-.5dig_h) 
  321.        - digit[4] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  322.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  323. showit;
  324. endchar;
  325.  
  326. % stop"";
  327.  
  328. beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 145";
  329.   currentpicture := black_circle 
  330.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  331.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  332.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  333. showit;
  334. endchar;
  335.  
  336. % stop"";
  337.  
  338. beginchar(18,24/22size#,23/22size#,1/22size#); "pion czarny z 146";
  339.   currentpicture := black_circle 
  340.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  341.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  342.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  343. showit;
  344. endchar;
  345.  
  346. % stop"";
  347.  
  348. beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 147";
  349.   currentpicture := black_circle 
  350.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  351.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  352.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  353. showit;
  354. endchar;
  355.  
  356. % stop"";
  357.  
  358. beginchar(20,24/22size#,23/22size#,1/22size#); "pion czarny z 148";
  359.   currentpicture := black_circle 
  360.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  361.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  362.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  363. showit;
  364. endchar;
  365.  
  366. % stop"";
  367.  
  368. beginchar(21,24/22size#,23/22size#,1/22size#); "pion czarny z 149";
  369.   currentpicture := black_circle 
  370.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  371.        - digit[4] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  372.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  373. showit;
  374. endchar;
  375.  
  376. % stop"";
  377.  
  378. beginchar(22,24/22size#,23/22size#,1/22size#); "pion czarny z 150";
  379.   currentpicture := black_circle 
  380.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  381.        - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  382.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  383. showit;
  384. endchar;
  385.  
  386. % stop"";
  387.  
  388. beginchar(23,24/22size#,23/22size#,1/22size#); "pion czarny z 151";
  389.   currentpicture := black_circle 
  390.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  391.        - digit[5] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  392.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  393. showit;
  394. endchar;
  395.  
  396. % stop"";
  397.  
  398. beginchar(24,24/22size#,23/22size#,1/22size#); "pion czarny z 152";
  399.   currentpicture := black_circle 
  400.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  401.        - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  402.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  403. showit;
  404. endchar;
  405.  
  406. % stop"";
  407.  
  408. beginchar(25,24/22size#,23/22size#,1/22size#); "pion czarny z 153";
  409.   currentpicture := black_circle 
  410.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  411.        - digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  412.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  413. showit;
  414. endchar;
  415.  
  416. % stop"";
  417.  
  418. beginchar(26,24/22size#,23/22size#,1/22size#); "pion czarny z 154";
  419.   currentpicture := black_circle 
  420.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  421.        - digit[5] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  422.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  423. showit;
  424. endchar;
  425.  
  426. % stop"";
  427.  
  428. beginchar(27,24/22size#,23/22size#,1/22size#); "pion czarny z 155";
  429.   currentpicture := black_circle 
  430.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  431.        - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  432.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  433. showit;
  434. endchar;
  435.  
  436. % stop"";
  437.  
  438. beginchar(28,24/22size#,23/22size#,1/22size#); "pion czarny z 156";
  439.   currentpicture := black_circle 
  440.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  441.        - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  442.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  443. showit;
  444. endchar;
  445.  
  446. % stop"";
  447.  
  448. beginchar(29,24/22size#,23/22size#,1/22size#); "pion czarny z 157";
  449.   currentpicture := black_circle 
  450.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  451.        - digit[5] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  452.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  453. showit;
  454. endchar;
  455.  
  456. % stop"";
  457.  
  458. beginchar(30,24/22size#,23/22size#,1/22size#); "pion czarny z 158";
  459.   currentpicture := black_circle 
  460.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  461.        - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  462.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  463. showit;
  464. endchar;
  465.  
  466. % stop"";
  467.  
  468. beginchar(31,24/22size#,23/22size#,1/22size#); "pion czarny z 159";
  469.   currentpicture := black_circle 
  470.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  471.        - digit[5] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  472.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  473. showit;
  474. endchar;
  475.  
  476. % stop"";
  477.  
  478. beginchar(32,24/22size#,23/22size#,1/22size#); "pion czarny z 160";
  479.   currentpicture := black_circle 
  480.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  481.        - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  482.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  483. showit;
  484. endchar;
  485.  
  486. % stop"";
  487.  
  488. beginchar(33,24/22size#,23/22size#,1/22size#); "pion czarny z 161";
  489.   currentpicture := black_circle 
  490.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  491.        - digit[6] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  492.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  493. showit;
  494. endchar;
  495.  
  496. % stop"";
  497.  
  498. beginchar(34,24/22size#,23/22size#,1/22size#); "pion czarny z 162";
  499.   currentpicture := black_circle 
  500.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  501.        - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  502.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  503. showit;
  504. endchar;
  505.  
  506. % stop"";
  507.  
  508. beginchar(35,24/22size#,23/22size#,1/22size#); "pion czarny z 163";
  509.   currentpicture := black_circle 
  510.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  511.        - digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  512.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  513. showit;
  514. endchar;
  515.  
  516. % stop"";
  517.  
  518. beginchar(36,24/22size#,23/22size#,1/22size#); "pion czarny z 164";
  519.   currentpicture := black_circle 
  520.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  521.        - digit[6] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  522.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  523. showit;
  524. endchar;
  525.  
  526. % stop"";
  527.  
  528. beginchar(37,24/22size#,23/22size#,1/22size#); "pion czarny z 165";
  529.   currentpicture := black_circle 
  530.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  531.        - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  532.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  533. showit;
  534. endchar;
  535.  
  536. % stop"";
  537.  
  538. beginchar(38,24/22size#,23/22size#,1/22size#); "pion czarny z 166";
  539.   currentpicture := black_circle 
  540.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  541.        - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  542.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  543. showit;
  544. endchar;
  545.  
  546. % stop"";
  547.  
  548. beginchar(39,24/22size#,23/22size#,1/22size#); "pion czarny z 167";
  549.   currentpicture := black_circle 
  550.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  551.        - digit[6] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  552.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  553. showit;
  554. endchar;
  555.  
  556. % stop"";
  557.  
  558. beginchar(40,24/22size#,23/22size#,1/22size#); "pion czarny z 168";
  559.   currentpicture := black_circle 
  560.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  561.        - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  562.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  563. showit;
  564. endchar;
  565.  
  566. % stop"";
  567.  
  568. beginchar(41,24/22size#,23/22size#,1/22size#); "pion czarny z 169";
  569.   currentpicture := black_circle 
  570.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  571.        - digit[6] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  572.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  573. showit;
  574. endchar;
  575.  
  576. % stop"";
  577.  
  578. beginchar(42,24/22size#,23/22size#,1/22size#); "pion czarny z 170";
  579.   currentpicture := black_circle 
  580.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  581.        - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  582.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  583. showit;
  584. endchar;
  585.  
  586. % stop"";
  587.  
  588. beginchar(43,24/22size#,23/22size#,1/22size#); "pion czarny z 171";
  589.   currentpicture := black_circle 
  590.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  591.        - digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  592.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  593. showit;
  594. endchar;
  595.  
  596. % stop"";
  597.  
  598. beginchar(44,24/22size#,23/22size#,1/22size#); "pion czarny z 172";
  599.   currentpicture := black_circle 
  600.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  601.        - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  602.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  603. showit;
  604. endchar;
  605.  
  606. % stop"";
  607.  
  608. beginchar(45,24/22size#,23/22size#,1/22size#); "pion czarny z 173";
  609.   currentpicture := black_circle 
  610.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  611.        - digit[7] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  612.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  613. showit;
  614. endchar;
  615.  
  616. % stop"";
  617.  
  618. beginchar(46,24/22size#,23/22size#,1/22size#); "pion czarny z 174";
  619.   currentpicture := black_circle 
  620.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  621.        - digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  622.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  623. showit;
  624. endchar;
  625.  
  626. % stop"";
  627.  
  628. beginchar(47,24/22size#,23/22size#,1/22size#); "pion czarny z 175";
  629.   currentpicture := black_circle 
  630.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  631.        - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  632.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  633. showit;
  634. endchar;
  635.  
  636. % stop"";
  637.  
  638. beginchar(48,24/22size#,23/22size#,1/22size#); "pion czarny z 176";
  639.   currentpicture := black_circle 
  640.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  641.        - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  642.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  643. showit;
  644. endchar;
  645.  
  646. % stop"";
  647.  
  648. beginchar(49,24/22size#,23/22size#,1/22size#); "pion czarny z 177";
  649.   currentpicture := black_circle 
  650.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  651.        - digit[7] shifted (.5w-.75dig_w,11/24w-.5dig_h)
  652.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  653. showit;
  654. endchar;
  655.  
  656. % stop"";
  657.  
  658. beginchar(50,24/22size#,23/22size#,1/22size#); "pion czarny z 178";
  659.   currentpicture := black_circle 
  660.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  661.        - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  662.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  663. showit;
  664. endchar;
  665.  
  666. % stop"";
  667.  
  668. beginchar(51,24/22size#,23/22size#,1/22size#); "pion czarny z 179";
  669.   currentpicture := black_circle 
  670.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  671.        - digit[7] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  672.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  673. showit;
  674. endchar;
  675.  
  676. % stop"";
  677.  
  678. beginchar(52,24/22size#,23/22size#,1/22size#); "pion czarny z 180";
  679.   currentpicture := black_circle 
  680.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  681.        - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  682.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  683. showit;
  684. endchar;
  685.  
  686. % stop"";
  687.  
  688. beginchar(53,24/22size#,23/22size#,1/22size#); "pion czarny z 181";
  689.   currentpicture := black_circle 
  690.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  691.        - digit[8] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  692.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  693. showit;
  694. endchar;
  695.  
  696. % stop"";
  697.  
  698. beginchar(54,24/22size#,23/22size#,1/22size#); "pion czarny z 182";
  699.   currentpicture := black_circle 
  700.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  701.        - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  702.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  703. showit;
  704. endchar;
  705.  
  706. % stop"";
  707.  
  708. beginchar(55,24/22size#,23/22size#,1/22size#); "pion czarny z 183";
  709.   currentpicture := black_circle 
  710.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  711.        - digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  712.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  713. showit;
  714. endchar;
  715.  
  716. % stop"";
  717.  
  718. beginchar(56,24/22size#,23/22size#,1/22size#); "pion czarny z 184";
  719.   currentpicture := black_circle 
  720.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  721.        - digit[8] shifted (.5w-.75dig_w,11/24w-.5dig_h)  
  722.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  723. showit;
  724. endchar;
  725.  
  726. % stop"";
  727.  
  728. beginchar(57,24/22size#,23/22size#,1/22size#); "pion czarny z 185";
  729.   currentpicture := black_circle 
  730.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  731.        - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  732.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  733. showit;
  734. endchar;
  735.  
  736. % stop"";
  737.  
  738. beginchar(58,24/22size#,23/22size#,1/22size#); "pion czarny z 186";
  739.   currentpicture := black_circle 
  740.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  741.        - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  742.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  743. showit;
  744. endchar;
  745.  
  746. % stop"";
  747.  
  748. beginchar(59,24/22size#,23/22size#,1/22size#); "pion czarny z 187";
  749.   currentpicture := black_circle 
  750.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  751.        - digit[8] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  752.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  753. showit;
  754. endchar;
  755.  
  756. % stop"";
  757.  
  758. beginchar(60,24/22size#,23/22size#,1/22size#); "pion czarny z 188";
  759.   currentpicture := black_circle 
  760.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  761.        - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  762.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  763. showit;
  764. endchar;
  765.  
  766. % stop"";
  767.  
  768. beginchar(61,24/22size#,23/22size#,1/22size#); "pion czarny z 189";
  769.   currentpicture := black_circle 
  770.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  771.        - digit[8] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  772.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  773. showit;
  774. endchar;
  775.  
  776. % stop"";
  777.  
  778. beginchar(62,24/22size#,23/22size#,1/22size#); "pion czarny z 190";
  779.   currentpicture := black_circle 
  780.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  781.        - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  782.        - digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  783. showit;
  784. endchar;
  785.  
  786. % stop"";
  787.  
  788. beginchar(63,24/22size#,23/22size#,1/22size#); "pion czarny z 191";
  789.   currentpicture := black_circle 
  790.        - digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  791.        - digit[9] shifted (.5w-.55dig_w,11/24w-.5dig_h)  
  792.        - digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  793. showit;
  794. endchar;
  795.  
  796. % stop"";
  797.  
  798. beginchar(64,24/22size#,23/22size#,1/22size#); "pion czarny z 192";
  799.   currentpicture := black_circle 
  800.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  801.        - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  802.        - digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  803. showit;
  804. endchar;
  805.  
  806. % stop"";
  807.  
  808. beginchar(65,24/22size#,23/22size#,1/22size#); "pion czarny z 193";
  809.   currentpicture := black_circle 
  810.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  811.        - digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h)   
  812.        - digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  813. showit;
  814. endchar;
  815.  
  816. % stop"";
  817.  
  818. beginchar(66,24/22size#,23/22size#,1/22size#); "pion czarny z 194";
  819.   currentpicture := black_circle 
  820.        - digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h) 
  821.        - digit[9] shifted (.5w-.75dig_w,11/24w-.5dig_h)    
  822.        - digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  823. showit;
  824. endchar;
  825.  
  826. % stop"";
  827.  
  828. beginchar(67,24/22size#,23/22size#,1/22size#); "pion czarny z 195";
  829.   currentpicture := black_circle 
  830.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  831.        - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)   
  832.        - digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  833. showit;
  834. endchar;
  835.  
  836. % stop"";
  837.  
  838. beginchar(68,24/22size#,23/22size#,1/22size#); "pion czarny z 196";
  839.   currentpicture := black_circle 
  840.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  841.        - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  842.        - digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  843. showit;
  844. endchar;
  845.  
  846. % stop"";
  847.  
  848. beginchar(69,24/22size#,23/22size#,1/22size#); "pion czarny z 197";
  849.   currentpicture := black_circle 
  850.        - digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  851.        - digit[9] shifted (.5w-.7dig_w,11/24w-.5dig_h)   
  852.        - digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  853. showit;
  854. endchar;
  855.  
  856. % stop"";
  857.  
  858. beginchar(70,24/22size#,23/22size#,1/22size#); "pion czarny z 198";
  859.   currentpicture := black_circle 
  860.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  861.        - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  862.        - digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  863. showit;
  864. endchar;
  865.  
  866. % stop"";
  867.  
  868. beginchar(71,24/22size#,23/22size#,1/22size#); "pion czarny z 199";
  869.   currentpicture := black_circle 
  870.        - digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  871.        - digit[9] shifted (.5w-.8dig_w,11/24w-.5dig_h)  
  872.        - digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  873. showit;
  874. endchar;
  875.  
  876. % stop"";
  877.  
  878. beginchar(72,24/22size#,23/22size#,1/22size#); "pion czarny z 200";
  879.   currentpicture := black_circle 
  880.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  881.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  882.        - digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  883. showit;
  884. endchar;
  885.  
  886. % stop"";
  887.  
  888. beginchar(73,24/22size#,23/22size#,1/22size#); "pion czarny z 201";
  889.   currentpicture := black_circle 
  890.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  891.        - digit[0] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  892.        - digit[1] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  893. showit;
  894. endchar;
  895.  
  896. % stop"";
  897.  
  898. beginchar(74,24/22size#,23/22size#,1/22size#); "pion czarny z 202";
  899.   currentpicture := black_circle 
  900.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  901.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  902.        - digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  903. showit;
  904. endchar;
  905.  
  906. % stop"";
  907.  
  908. beginchar(75,24/22size#,23/22size#,1/22size#); "pion czarny z 203";
  909.   currentpicture := black_circle 
  910.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  911.        - digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h) 
  912.        - digit[3] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  913. showit;
  914. endchar;
  915.  
  916. % stop"";
  917.  
  918. beginchar(76,24/22size#,23/22size#,1/22size#); "pion czarny z 204";
  919.   currentpicture := black_circle 
  920.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  921.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  922.        - digit[4] shifted (.5w+.6dig_w,11/24w-.5dig_h);  
  923. showit;
  924. endchar;
  925.  
  926. % stop"";
  927.  
  928. beginchar(77,24/22size#,23/22size#,1/22size#); "pion czarny z 205";
  929.   currentpicture := black_circle 
  930.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  931.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  932.        - digit[5] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  933. showit;
  934. endchar;
  935.  
  936. % stop"";
  937.  
  938. beginchar(78,24/22size#,23/22size#,1/22size#); "pion czarny z 206";
  939.   currentpicture := black_circle 
  940.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  941.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  942.        - digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  943. showit;
  944. endchar;
  945.  
  946. % stop"";
  947.  
  948. beginchar(79,24/22size#,23/22size#,1/22size#); "pion czarny z 207";
  949.   currentpicture := black_circle 
  950.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  951.        - digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h)
  952.        - digit[7] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  953. showit;
  954. endchar;
  955.  
  956. % stop"";
  957.  
  958. beginchar(80,24/22size#,23/22size#,1/22size#); "pion czarny z 208";
  959.   currentpicture := black_circle 
  960.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  961.        - digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  962.        - digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  963. showit;
  964. endchar;
  965.  
  966. % stop"";
  967.  
  968. beginchar(81,24/22size#,23/22size#,1/22size#); "pion czarny z 209";
  969.   currentpicture := black_circle 
  970.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  971.        - digit[0] shifted (.5w-.45dig_w,11/24w-.5dig_h)
  972.        - digit[9] shifted (.5w+.65dig_w,11/24w-.5dig_h); 
  973. showit;
  974. endchar;
  975.  
  976. % stop"";
  977.  
  978. beginchar(82,24/22size#,23/22size#,1/22size#); "pion czarny z 210";
  979.   currentpicture := black_circle 
  980.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h) 
  981.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  982.        - digit[0] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  983. showit;
  984. endchar;
  985.  
  986. % stop"";
  987.  
  988. beginchar(83,24/22size#,23/22size#,1/22size#); "pion czarny z 211";
  989.   currentpicture := black_circle 
  990.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  991.        - digit[1] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  992.        - digit[1] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  993. showit;
  994. endchar;
  995.  
  996. % stop"";
  997.  
  998. beginchar(84,24/22size#,23/22size#,1/22size#); "pion czarny z 212";
  999.   currentpicture := black_circle 
  1000.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1001.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1002.        - digit[2] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1003. showit;
  1004. endchar;
  1005.  
  1006. % stop"";
  1007.  
  1008. beginchar(85,24/22size#,23/22size#,1/22size#); "pion czarny z 213";
  1009.   currentpicture := black_circle 
  1010.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1011.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h) 
  1012.        - digit[3] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1013. showit;
  1014. endchar;
  1015.  
  1016. % stop"";
  1017.  
  1018. beginchar(86,24/22size#,23/22size#,1/22size#); "pion czarny z 214";
  1019.   currentpicture := black_circle 
  1020.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1021.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1022.        - digit[4] shifted (.5w+.4dig_w,11/24w-.5dig_h);  
  1023. showit;
  1024. endchar;
  1025.  
  1026. % stop"";
  1027.  
  1028. beginchar(87,24/22size#,23/22size#,1/22size#); "pion czarny z 215";
  1029.   currentpicture := black_circle 
  1030.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1031.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1032.        - digit[5] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1033. showit;
  1034. endchar;
  1035.  
  1036. % stop"";
  1037.  
  1038. beginchar(88,24/22size#,23/22size#,1/22size#); "pion czarny z 216";
  1039.   currentpicture := black_circle 
  1040.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1041.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1042.        - digit[6] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1043. showit;
  1044. endchar;
  1045.  
  1046. % stop"";
  1047.  
  1048. beginchar(89,24/22size#,23/22size#,1/22size#); "pion czarny z 217";
  1049.   currentpicture := black_circle 
  1050.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1051.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1052.        - digit[7] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1053. showit;
  1054. endchar;
  1055.  
  1056. % stop"";
  1057.  
  1058. beginchar(90,24/22size#,23/22size#,1/22size#); "pion czarny z 218";
  1059.   currentpicture := black_circle 
  1060.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1061.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1062.        - digit[8] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1063. showit;
  1064. endchar;
  1065.  
  1066. % stop"";
  1067.  
  1068. beginchar(91,24/22size#,23/22size#,1/22size#); "pion czarny z 219";
  1069.   currentpicture := black_circle 
  1070.        - digit[2] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1071.        - digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1072.        - digit[9] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  1073. showit;
  1074. endchar;
  1075.  
  1076. % stop"";
  1077.  
  1078. beginchar(92,24/22size#,23/22size#,1/22size#); "pion czarny z 220";
  1079.   currentpicture := black_circle 
  1080.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1081.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1082.        - digit[0] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1083. showit;
  1084. endchar;
  1085.  
  1086. % stop"";
  1087.  
  1088. beginchar(93,24/22size#,23/22size#,1/22size#); "pion czarny z 221";
  1089.   currentpicture := black_circle 
  1090.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1091.        - digit[2] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  1092.        - digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1093. showit;
  1094. endchar;
  1095.  
  1096. % stop"";
  1097.  
  1098. beginchar(94,24/22size#,23/22size#,1/22size#); "pion czarny z 222";
  1099.   currentpicture := black_circle 
  1100.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1101.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1102.        - digit[2] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1103. showit;
  1104. endchar;
  1105.  
  1106. % stop"";
  1107.  
  1108. beginchar(95,24/22size#,23/22size#,1/22size#); "pion czarny z 223";
  1109.   currentpicture := black_circle 
  1110.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1111.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h) 
  1112.        - digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1113. showit;
  1114. endchar;
  1115.  
  1116. % stop"";
  1117.  
  1118. beginchar(96,24/22size#,23/22size#,1/22size#); "pion czarny z 224";
  1119.   currentpicture := black_circle 
  1120.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1121.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1122.        - digit[4] shifted (.5w+.55dig_w,11/24w-.5dig_h);  
  1123. showit;
  1124. endchar;
  1125.  
  1126. % stop"";
  1127.  
  1128. beginchar(97,24/22size#,23/22size#,1/22size#); "pion czarny z 225";
  1129.   currentpicture := black_circle 
  1130.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1131.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1132.        - digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1133. showit;
  1134. endchar;
  1135.  
  1136. % stop"";
  1137.  
  1138. beginchar(98,24/22size#,23/22size#,1/22size#); "pion czarny z 226";
  1139.   currentpicture := black_circle 
  1140.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1141.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1142.        - digit[6] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1143. showit;
  1144. endchar;
  1145.  
  1146. % stop"";
  1147.  
  1148. beginchar(99,24/22size#,23/22size#,1/22size#); "pion czarny z 227";
  1149.   currentpicture := black_circle 
  1150.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1151.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1152.        - digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1153. showit;
  1154. endchar;
  1155.  
  1156. % stop"";
  1157.  
  1158. beginchar(100,24/22size#,23/22size#,1/22size#); "pion czarny z 228";
  1159.   currentpicture := black_circle 
  1160.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1161.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1162.        - digit[8] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1163. showit;
  1164. endchar;
  1165.  
  1166. % stop"";
  1167.  
  1168. beginchar(101,24/22size#,23/22size#,1/22size#); "pion czarny z 229";
  1169.   currentpicture := black_circle 
  1170.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1171.        - digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1172.        - digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); 
  1173. showit;
  1174. endchar;
  1175.  
  1176. % stop"";
  1177.  
  1178. beginchar(102,24/22size#,23/22size#,1/22size#); "pion czarny z 230";
  1179.   currentpicture := black_circle 
  1180.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1181.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1182.        - digit[0] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1183. showit;
  1184. endchar;
  1185.  
  1186. % stop"";
  1187.  
  1188. beginchar(103,24/22size#,23/22size#,1/22size#); "pion czarny z 231";
  1189.   currentpicture := black_circle 
  1190.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1191.        - digit[3] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  1192.        - digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1193. showit;
  1194. endchar;
  1195.  
  1196. % stop"";
  1197.  
  1198. beginchar(104,24/22size#,23/22size#,1/22size#); "pion czarny z 232";
  1199.   currentpicture := black_circle 
  1200.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1201.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1202.        - digit[2] shifted (.5w+.65dig_w,11/24w-.5dig_h);
  1203. showit;
  1204. endchar;
  1205.  
  1206. % stop"";
  1207.  
  1208. beginchar(105,24/22size#,23/22size#,1/22size#); "pion czarny z 233";
  1209.   currentpicture := black_circle 
  1210.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1211.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h) 
  1212.        - digit[3] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1213. showit;
  1214. endchar;
  1215.  
  1216. % stop"";
  1217.  
  1218. beginchar(106,24/22size#,23/22size#,1/22size#); "pion czarny z 234";
  1219.   currentpicture := black_circle 
  1220.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1221.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1222.        - digit[4] shifted (.5w+.65dig_w,11/24w-.5dig_h);  
  1223. showit;
  1224. endchar;
  1225.  
  1226. % stop"";
  1227.  
  1228. beginchar(107,24/22size#,23/22size#,1/22size#); "pion czarny z 235";
  1229.   currentpicture := black_circle 
  1230.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1231.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1232.        - digit[5] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1233. showit;
  1234. endchar;
  1235.  
  1236. % stop"";
  1237.  
  1238. beginchar(108,24/22size#,23/22size#,1/22size#); "pion czarny z 236";
  1239.   currentpicture := black_circle 
  1240.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1241.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1242.        - digit[6] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1243. showit;
  1244. endchar;
  1245.  
  1246. % stop"";
  1247.  
  1248. beginchar(109,24/22size#,23/22size#,1/22size#); "pion czarny z 237";
  1249.   currentpicture := black_circle 
  1250.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1251.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1252.        - digit[7] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1253. showit;
  1254. endchar;
  1255.  
  1256. % stop"";
  1257.  
  1258. beginchar(110,24/22size#,23/22size#,1/22size#); "pion czarny z 238";
  1259.   currentpicture := black_circle 
  1260.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1261.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1262.        - digit[8] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1263. showit;
  1264. endchar;
  1265.  
  1266. % stop"";
  1267.  
  1268. beginchar(111,24/22size#,23/22size#,1/22size#); "pion czarny z 239";
  1269.   currentpicture := black_circle 
  1270.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1271.        - digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1272.        - digit[9] shifted (.5w+.6dig_w,11/24w-.5dig_h); 
  1273. showit;
  1274. endchar;
  1275.  
  1276. % stop"";
  1277.  
  1278. beginchar(112,24/22size#,23/22size#,1/22size#); "pion czarny z 240";
  1279.   currentpicture := black_circle 
  1280.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1281.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1282.        - digit[0] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1283. showit;
  1284. endchar;
  1285.  
  1286. % stop"";
  1287.  
  1288. beginchar(113,24/22size#,23/22size#,1/22size#); "pion czarny z 241";
  1289.   currentpicture := black_circle 
  1290.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1291.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1292.        - digit[1] shifted (.5w+.6dig_w,11/24w-.5dig_h);
  1293. showit;
  1294. endchar;
  1295.  
  1296. % stop"";
  1297.  
  1298. beginchar(114,24/22size#,23/22size#,1/22size#); "pion czarny z 242";
  1299.   currentpicture := black_circle 
  1300.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1301.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1302.        - digit[2] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1303. showit;
  1304. endchar;
  1305.  
  1306. % stop"";
  1307.  
  1308. beginchar(115,24/22size#,23/22size#,1/22size#); "pion czarny z 243";
  1309.   currentpicture := black_circle 
  1310.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1311.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1312.        - digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1313. showit;
  1314. endchar;
  1315.  
  1316. % stop"";
  1317.  
  1318. beginchar(116,24/22size#,23/22size#,1/22size#); "pion czarny z 244";
  1319.   currentpicture := black_circle 
  1320.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1321.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1322.        - digit[4] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1323. showit;
  1324. endchar;
  1325.  
  1326. % stop"";
  1327.  
  1328. beginchar(117,24/22size#,23/22size#,1/22size#); "pion czarny z 245";
  1329.   currentpicture := black_circle 
  1330.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1331.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1332.        - digit[5] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1333. showit;
  1334. endchar;
  1335.  
  1336. % stop"";
  1337.  
  1338. beginchar(118,24/22size#,23/22size#,1/22size#); "pion czarny z 246";
  1339.   currentpicture := black_circle 
  1340.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1341.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1342.        - digit[6] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1343. showit;
  1344. endchar;
  1345.  
  1346. % stop"";
  1347.  
  1348. beginchar(119,24/22size#,23/22size#,1/22size#); "pion czarny z 247";
  1349.   currentpicture := black_circle 
  1350.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1351.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1352.        - digit[7] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1353. showit;
  1354. endchar;
  1355.  
  1356. % stop"";
  1357.  
  1358. beginchar(120,24/22size#,23/22size#,1/22size#); "pion czarny z 248";
  1359.   currentpicture := black_circle 
  1360.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1361.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1362.        - digit[8] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1363. showit;
  1364. endchar;
  1365.  
  1366. % stop"";
  1367.  
  1368. beginchar(121,24/22size#,23/22size#,1/22size#); "pion czarny z 249";
  1369.   currentpicture := black_circle 
  1370.        - digit[2] shifted (.5w-1.55dig_w,11/24w-.5dig_h)
  1371.        - digit[4] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1372.        - digit[9] shifted (.5w+.75dig_w,11/24w-.5dig_h);
  1373. showit;
  1374. endchar;
  1375.  
  1376. % stop"";
  1377.  
  1378. beginchar(122,24/22size#,23/22size#,1/22size#); "pion czarny z 250";
  1379.   currentpicture := black_circle 
  1380.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1381.        - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1382.        - digit[0] shifted (.5w+.8dig_w,11/24w-.5dig_h);
  1383. showit;
  1384. endchar;
  1385.  
  1386. % stop"";
  1387.  
  1388. beginchar(123,24/22size#,23/22size#,1/22size#); "pion czarny z 251";
  1389.   currentpicture := black_circle 
  1390.        - digit[2] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1391.        - digit[5] shifted (.5w-.4dig_w,11/24w-.5dig_h)      
  1392.        - digit[1] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1393. showit;
  1394. endchar;
  1395.  
  1396. % stop"";
  1397.  
  1398. beginchar(124,24/22size#,23/22size#,1/22size#); "pion czarny z 252";
  1399.   currentpicture := black_circle 
  1400.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1401.        - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1402.        - digit[2] shifted (.5w+.8dig_w,11/24w-.5dig_h);
  1403. showit;
  1404. endchar;
  1405.  
  1406. % stop"";
  1407.  
  1408. beginchar(125,24/22size#,23/22size#,1/22size#); "pion czarny z 253";
  1409.   currentpicture := black_circle 
  1410.        - digit[2] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1411.        - digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h)      
  1412.        - digit[3] shifted (.5w+.7dig_w,11/24w-.5dig_h);
  1413. showit;
  1414. endchar;
  1415.  
  1416. % stop"";
  1417.  
  1418. %%%%%%%%%%%%%%%%%%%%%% other symbols %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1419.  
  1420. beginchar(126,24/22size#,23/22size#,1/22size#); "pion czarny z kwadratem";
  1421.   pickup pencircle scaled 1.25line_thickness;
  1422.   z1=(.5w+.32size,11/24w+.32size);
  1423.   z2=(.5w+.32size,11/24w-.32size);
  1424.   z3=(.5w-.32size,11/24w-.32size);
  1425.   z4=(.5w-.32size,11/24w+.32size);
  1426.   currentpicture := black_circle;  
  1427.   erase draw z1--z2--z3--z4--cycle;  
  1428. showit;
  1429. endchar;
  1430.  
  1431. % stop"";
  1432.  
  1433. beginchar(127,24/22size#,23/22size#,1/22size#); "pion czarny z trojkatem";
  1434.   pickup pencircle scaled 1.25line_thickness;
  1435.   lft x1=.08size+1/24w; bot y1=.24size;
  1436.   x2=.5w; top y2=.98size;
  1437.   rt x3=.92size+1/24w; bot y3=.24size;
  1438.   currentpicture := black_circle;  
  1439.   erase draw z1--z2--z3--cycle;
  1440. showit;
  1441. endchar;
  1442.  
  1443. % stop"";
  1444.  
  1445. end;
  1446.  
  1447.